home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / kids / amiag1dm.lha / agdemo / HD_Install < prev    next >
Text File  |  1996-08-11  |  3KB  |  123 lines
  1. (set is_update 0)
  2. (complete 0)
  3.  
  4. (set AG_dest
  5.     (askdir
  6.         (prompt "In which disk or drawer should Audio Gallery be installed?")
  7.         (help "The installation utility will create a drawer named "
  8.             "\"AGDemo\" in this directory.  All \"Audio Gallery\" "
  9.             "files will be placed inside that directory. \n\n"
  10.             " Tip for advanced users:\n "
  11.             "  \"Audio Gallery\" may be moved to another directory as long as "
  12.             " the sub-directories:\n"
  13.             "   icons, alphs, pictures, sounds, and fonts\n"
  14.             " are moved (as subdirectories) to the program's new location")
  15.         (default @default-dest)
  16.     )
  17. )
  18.  
  19. ; the GalleryDemo program is a sign that Audio Gallery is already installed here
  20. (if (exists (tackon AG_dest "GalleryDemo"))
  21.     (set is_update 1)
  22. )
  23.  
  24. (set disk_space (getdiskspace AG_dest))
  25.  
  26. (if (AND (< disk_space 700000) (NOT is_update))
  27.   (
  28.     (set answer1
  29.         (askbool
  30.             (prompt "There may not be enough room available on "
  31.                 "this drive to install \"Audio Gallery\".  Do you "
  32.                 "wish to continue?")
  33.             (help "Final Copy needs approximately .7 Megabytes of "
  34.                 "disk space for a full installation.  If Audio Gallery "
  35.                 "is already installed on this partition, "
  36.                                 " you may wish to continue.  Otherwise, "
  37.                 "press ABORT or NO now and either free some space on this "
  38.                 "partition or select a different partition for the "
  39.                 "installation.")
  40.         )
  41.     )
  42.     (if (NOT answer1)
  43.         (if (= @user-level 0)
  44.             (abort "Audio Gallery needs approximately 700000 Kilobytes of "
  45.                 "disk space for a full installation. The Volume \""
  46.                 @default-dest
  47.                 "\" does not have enough space available. You may override this "
  48.                 "warning in Intermediate or Expert mode.")
  49.             (abort "Audio Gallery installation cancelled.")
  50.         )
  51.     )
  52.   )
  53. )
  54.  
  55. ; get the program disk
  56. ;(askdisk
  57. ;    (prompt "Please insert the disk labeled \"AGProgram_II\"" )
  58. ;    (help    "The Audio Gallery program will be copied "
  59. ;            "to your system." )
  60. ;    (dest "AGDemo" )
  61. ;)
  62.  
  63. ; Make dest directory with icon
  64. (makedir (tackon AG_dest "AGDemo") (infos))
  65.  
  66. ; now, we want everything to be copied into this sub-dir
  67. (set AG_dest (tackon AG_dest "AGDemo"))
  68. (set @default-dest AG_dest)
  69.  
  70. ;copy the Audio Gallery drawer over
  71. (copyfiles
  72.     (source "")
  73.     (dest AG_dest) (pattern "#?") (infos)
  74. )
  75.  
  76. ;copy the More program to the hard drive so everyone is
  77. ;guaranteed to have it.
  78. (copyfiles
  79.     (source "More")
  80.     (dest AG_dest)
  81. )
  82.  
  83. ;(tackon AG_dest "AGSpell")
  84.  
  85. (complete 20)
  86.  
  87. ; Check if we are running 2.0
  88. ; NEED THIS for compressed versions
  89. ;(if (< (/ (getversion) 65536) 37)
  90. ;    (    ; get system 1.3 disk
  91. ;        (askdisk
  92. ;            (prompt "Please insert the disk labeled \"AGSystem_1.3\""  )
  93. ;            (help    "The Final Copy program and other tools will be copied "
  94. ;                    "from the \"" sys_disk "\" Disk on to your system." )
  95. ;            (dest "AGSystem_1.3")
  96. ;        )
  97. ;        (copyfiles
  98. ;            (source "AGSystem_1.3:")
  99. ;            (dest AG_dest) (pattern "AG#?") (infos)
  100. ;        )
  101. ;    )
  102. ;    (    ; get system 2.0 disk
  103. ;        (askdisk
  104. ;            (prompt "Please insert the disk labeled \"AGSystem_2.0\""  )
  105. ;            (help    "The Final Copy program and other tools will be copied "
  106. ;                    "from the \"" sys_disk "\" Disk on to your system." )
  107. ;            (dest "AGSystem_2.0")
  108. ;        )
  109. ;        (copyfiles
  110. ;            (source "AGSystem_2.0:")
  111. ;            (dest AG_dest) (pattern "AG#?") (infos)
  112. ;        )
  113. ;    )
  114. ;)
  115.  
  116. ;makeassign JapaneseGallery AGDemo
  117.  
  118. (complete 40)
  119.  
  120. (complete 100)
  121.  
  122. (exit)
  123.